00100	ARRAY F1,F2,F3,F4(512);
00200	COMPILE;
00300	INSTRUMENT INS;
00400	ZOSCIL(P3,MAG/P2,F2);
00500	INTRP(P6*P5*MAG,P7*P5*MAG,F3);
00600	OSCIL(U2,P5*MAG,F1);
00700	INTRP(P9*P8*MAG,P10*P8*MAG,F4);
00800	OSCIL(U4,P8*MAG,F1);
00900	ZOSCIL(U1,P4*MAG+U3+U5,F1);
01000	OUTA←OUTA+U6;
01100	END;
01200	FINISH;
01300	SYNTH(F1);1 1 999
01400	SYNTH(F2);99 .5 1 0 0 .5 1 0 100 .5 1 0 100 999
01500	SEG(F3);0 0 1 100
01550	SYNTH(F4);99 .25 1 0 0 999
01600	SRATE←25000;MAG←512/SRATE;SPEED←2;NCHNS←1;
01700	PLAY;INS 0 1 1000 1100 1100 3 0 44 3 0;FINISH;